home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / picpack.lha / Pic_Packer.AMOS / Pic_Packer.amosSourceCode
AMOS Source Code  |  1980-10-17  |  616b  |  32 lines
  1. '*** SIMPLY PACKS A PICTURE ***
  2.  
  3. '* Alastair Murray 1997 (written 1995) 
  4. '* E-Mail: pmymagm@pmn1.maths.nott.ac.uk 
  5. '* Web Page: http://www.cs.nott.ac.uk/~agm/
  6. '* Including More AMOS stuff 
  7.  
  8. Z$=Dir$
  9. PIC_PACKER
  10. Dir$=Z$
  11.  
  12. Procedure PIC_PACKER
  13.    
  14.    Do 
  15.       
  16.       Erase All 
  17.       A$=Fsel$(Dir$,"","Pick Picture To Be Packed")
  18.       If A$="" Then End 
  19.       Load Iff A$,0
  20.       Wait Vbl 
  21.       Spack 0 To 10
  22.       A$=Fsel$(Dir$,"","Pick File To Save To")
  23.       If A$="" Then Pop Proc
  24.       If Exist(A$)=-1 Then Kill A$
  25.       Save A$,10
  26.       Wait 100
  27.       Screen Close 0
  28.       Erase All 
  29.       
  30.    Loop 
  31.    
  32. End Proc